home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Computer Arts Interactive 4
/
CARTS4.iso
/
mac
/
MiniCad 6.0.1 demo
/
MiniCad 6.0.1 Demo
/
MiniCad 6.0.1 Demo.rsrc
/
STR#_7015.txt
< prev
next >
Wrap
Text File
|
1996-03-22
|
966b
|
25 lines
Returns TRUE if X1,Y1 and X2,Y2 are equal, otherwise it returns FALSE.
EqualPt(X1, Y1, X2, Y2 : REAL) : BOOLEAN;
Returns TRUE if the two rectangular boundaries X1, Y1, X2, Y2 and X3, Y3, X4, Y4 are equal, otherwise it returns FALSE.
EqualRect(X1, Y1, X2, Y2, X3, Y3, X4, Y4 : REAL) : BOOLEAN;
Given two rectangular boundaries, specified by X1, Y1, X2, Y2 and X3, Y3, X4, Y4, returns a new boundary which encloses both rectangles in X5, Y5, X6, Y6.
UnionRect(X1, Y1, X2, Y2, X3, Y3, X4, Y4 : REAL; VAR X5, Y5, X6, Y6 : REAL);
Returns TRUE if the coordinate X, Y is located within the rectangular boundary specified by X1, Y1 and X2, Y2; otherwise it returns FALSE.
PtInRect(X, Y, X1, Y1, X2, Y2 : REAL) : BOOLEAN;
Returns the distance between two coordinate locations.
Distance(X1, Y1, X2, Y2 : REAL) : REAL;
Returns TRUE if the point (X, Y) is inside the polygon connected to H; otherwise it returns FALSE.
PtInPoly(X, Y : REAL; H : HANDLE) : BOOLEAN;